home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / minitel / emul / zzcompro / annuaire.lc2 < prev    next >
Text File  |  1993-03-27  |  674b  |  32 lines
  1. ; -------------------------------------------------
  2. ; Script Lc2 enregistr‚ par ZZ-COM PRO
  3. ; Le 16/03/1991 … 12:45:00
  4. ; -------------------------------------------------
  5. ;  Recherche automatique d'un num‚ro de t‚l‚phone
  6. ;       dans l'annuaire ‚lectronique 11
  7. ;           Copyright COREWAR 1991
  8. ; -------------------------------------------------
  9. COMPOSE_NUMERO("11")
  10. ATTENDS_CONNEXION
  11. PAUSE(5)
  12. Chaine("NOM")
  13. Suite
  14. ; Chaine("RUBRIQUE")
  15. Suite
  16. ; Chaine("LOCALITE")
  17. Suite
  18. Chaine("DEPT")
  19. Suite
  20. ; Chaine("ADRESSE")
  21. Suite
  22. ; Chaine("PRENOM")
  23. ENVOI
  24. DO
  25.   mot=prends_mot(24,35)
  26.   IF MOT=("Annul")
  27.     raccroche
  28.   ELSE
  29.     PAUSE(5)
  30.   ENDIF
  31.   SUITE  
  32. LOOP